home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm1 / e-sbox10.lha / SuggBox < prev    next >
Text File  |  1995-08-28  |  4KB  |  170 lines
  1. /*    __
  2.      (_             \/            Written By Greg Fitch Of XyonicS BBS
  3.    ____)uggestion Bo/\___         
  4.  
  5.    This program will allow users to give you suggestions on the BBS, or what-
  6.    ever other use you put it to.
  7.    It saves them to "BBS:Text/Logs/Suggestion.log" and then SuggBox.M reads
  8.    them.  :To Use:  Put both SuggBox and SuggBox.M in your
  9.    Doors: directory. Then, modify your EX.BBSMENU as follows:
  10.    Add at the end of your, (Global Commands)
  11.    584,        SUG,         0,          "1-32",      "\#1Doors:SuggBox\" 
  12.    and
  13.    585,        SUL,         1,          "32",        "\#1Doors:SuggBox.M\"  
  14.    For the reader. When someone makes a suggestion, you can use SUL to
  15.    read/delete them.  Thats all there is too it.. nifty, huh?? Heheheh....
  16.  
  17.    This file is free to distribute to LEGAL E! AMIGA SYSOPS ONLY and to be
  18.    distributed with this text intact...  you may delete all this for the copy 
  19.    you are using on the BBS to save room, but if you spread this around, make
  20.    sure this is in it..  Thats all I ask!  If you like it, find it useful, or
  21.    whatever, LET ME KNOW!  Write a letter.. call my BBS.. Let me know
  22.    you are out there!
  23.                                
  24.                                XyonicS BBS
  25.                              +61-7-38084806
  26.               Enough Comments, Already..               --Greg                 */
  27.  
  28. options results
  29. path="BBS:Text/Logs/Suggestion.log"
  30. sendstring '\c1: \c3Do You Wish To Make A Suggestion? (y/N) \c1: \c6'
  31. getchar
  32. yesno = upper(result)
  33. if yesno ~= 'Y' then do
  34.  sendstring 'No'
  35.  exit
  36. end
  37.  
  38. transmit 'Yes'
  39. bufferflush
  40. getuser 28
  41. urk=result
  42. if urk = 0 then call ask:
  43. sendstring '\^2'
  44.  
  45. ASK:
  46.  
  47. transmit '\n1\c1: \c5Enter Up To \c710\c5 Lines.  Press \c1RETURN\c5 On A Blank'
  48. transmit '\c1: \c5Line To Save (\c3Incase You Do Not Fill Up All 10 Lines\c5)\n1'
  49.  
  50. GETUSER 1;Uname=result;GETUSER 12;Date=result
  51. logentry'Suggestion By 'uname
  52.  query "\c1: \c3"
  53.  text1 = result
  54.  if text1 = "" then CALL DONE
  55.  query "\c1: \c3"
  56.  text2 = result
  57.  if text2 = "" then CALL DONE
  58.  query "\c1: \c3"
  59.  text3 = result
  60.  if text3 = "" then CALL DONE
  61.  query "\c1: \c3"
  62.  text4 = result
  63.  if text4 = "" then CALL DONE
  64.  query "\c1: \c3"
  65.  text5 = result
  66.  if text5 = "" then CALL DONE
  67.  query "\c1: \c3"
  68.  text6 = result
  69.  if text6 = "" then CALL DONE
  70.  query "\c1: \c3"
  71.  text7 = result
  72.  if text7 = "" then CALL DONE
  73.  query "\c1: \c3"
  74.  text8 = result
  75.  if text8 = "" then CALL DONE
  76.  query "\c1: \c3"
  77.  text9 = result
  78.  if text9 = "" then CALL DONE
  79.  query "\c1: \c3"
  80.  text10 = result
  81.  if text10 = "" then CALL DONE
  82.  
  83. DONE:  /* Save Their Suggestion */
  84. header="\c5Suggestion By:\cd "uname"\c5 On \cd"date"\c1...\n1\c3"
  85. if ~exists(path) then CALL YEPIT
  86. else CALL NOPEIT
  87.  
  88. YEPIT:
  89.  open(sfile,path,'W')
  90.  writeln(sfile, header)
  91.  if text1 = "" then CALL THEEND
  92.  writeln(sfile, text1)
  93.  if text2 = "" then CALL THEEND
  94.  writeln(sfile, text2)
  95.  if text3 = "" then CALL THEEND
  96.  writeln(sfile, text3)
  97.  if text4 = "" then CALL THEEND
  98.  writeln(sfile, text4)
  99.  if text5 = "" then CALL THEEND
  100.  writeln(sfile, text5)
  101.  if text6 = "" then CALL THEEND
  102.  writeln(sfile, text6)
  103.  if text7 = "" then CALL THEEND
  104.  writeln(sfile, text7)
  105.  if text8 = "" then CALL THEEND
  106.  writeln(sfile, text8)
  107.  if text9 = "" then CALL THEEND
  108.  writeln(sfile, text9)
  109.  if text10 = "" then CALL THEEND
  110.  writeln(sfile, text10)
  111. CALL THEEND
  112.  
  113. NOPEIT:
  114.  open(sfile,path,'A')
  115.  writeln(sfile, header)
  116.  if text1 = "" then CALL THEEND
  117.  writeln(sfile, text1)
  118.  if text2 = "" then CALL THEEND
  119.  writeln(sfile, text2)
  120.  if text3 = "" then CALL THEEND
  121.  writeln(sfile, text3)
  122.  if text4 = "" then CALL THEEND
  123.  writeln(sfile, text4)
  124.  if text5 = "" then CALL THEEND
  125.  writeln(sfile, text5)
  126.  if text6 = "" then CALL THEEND
  127.  writeln(sfile, text6)
  128.  if text7 = "" then CALL THEEND
  129.  writeln(sfile, text7)
  130.  if text8 = "" then CALL THEEND
  131.  writeln(sfile, text8)
  132.  if text9 = "" then CALL THEEND
  133.  writeln(sfile, text9)
  134.  if text10 = "" then CALL THEEND
  135.  writeln(sfile, text10)
  136. CALL THEEND
  137.  
  138. THEEND:
  139. footer="\c1\n1Key->\g0\h5"
  140.  writeln(sfile, footer)
  141.  close(sfile)
  142. CALL THATSIT
  143. end
  144. end
  145. end
  146. end
  147. end
  148. end
  149. end
  150. end
  151. end
  152. end
  153. end
  154. end
  155. end
  156. end
  157. end
  158. end
  159. end
  160. end
  161. end
  162. end
  163.  
  164. THATSIT:
  165. transmit "\n1\c1: \c2Thankyou For Your Suggestion! \c3The Sysops Will Get Back"
  166. sendstring "\c1: \c3To You In The Next Couple Of Days."
  167.  
  168. exit
  169.  
  170.